home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Review 30
/
Creative-Review-CD-ROM-30.iso
/
mac
/
More
/
Simon Tyszko
/
atomic
/
00001_Script_1
next >
Wrap
Text File
|
1997-10-01
|
3KB
|
121 lines
global gballlist
global ghinc
global gvinc
global gobj
global gnumofcastslist
global gstartingcastnumlist
global multimixer
global gonionjungle
---------------------------------------
---------------------------------------
on hinit
preloadmember 7, 185
--this holds the starting castnum for sprites
set gstartingcastnumlist = [22,42,62,82,102,122,142,152,191,211]
--this holds the total for each cast sequence
set gnumofcastslist = [12,12,12,12,12,12,6,6,12,12]
set gballlist =[ ]
preloadcast 7
puppetsound 1,7
repeat with spritenum = 1 to 10
add gballlist birth(script "ball",spritenum,¼
getat(gstartingcastnumlist,spritenum),¼
getat(gnumofcastslist,spritenum))
put spritenum
end repeat
set gonionjungle = 182
puppetsound (15, gonionjungle)
end hinit
---------------------------------------
---------------------------------------
on hupdate
-- updatestage
--this is where you play a audio iff as background
--don't use a sound channel which is already used up
if not soundbusy (15) then puppetsound (15, gonionjungle)
repeat with n = 1 to count(gballlist)
set ball = getat(gballlist,n)
hcalculateincrement
-- adjustsize ball
move ball ghinc, gvinc
makesound ball
animate ball
-- blend ball
end repeat
end hupdate
---------------------------------------
---------------------------------------
on hcalculateincrement
set ghinc = (((the stageright-the stageleft)/2) - the mouseh)/3
set gvinc = (((the stagebottom-the stagetop)/2) - the mousev)/3
end hcalculateincrement
---------------------------------------
---------------------------------------
on hstop
end
---------------------------------------
---------------------------------------
on hrestart
end hrestart
---------------------------------------
---------------------------------------
---------------------------------------
--------------------------------------
on hclean
end hclean
---------------------------------------
--------------------------------------
on stopmovie
end stopmovie
---------------------------------------
--------------------------------------
on keydown
tell the stage to movetofront getat(the windowlist,1)
end keydown
--on mousedown
--
-- set gonionjungle = random(3) +181
--
--
--end mousedown
--
--